home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / PARK.ZIP / remote.ini < prev    next >
INI File  |  1997-03-20  |  16KB  |  324 lines

  1. [Variables]
  2. n0=%splitstat ON
  3. n1=%repeatkick [ON]
  4. n2=%split1 trapdoor
  5. n3=%split2 raptor
  6. n4=%help 0
  7. n5=%helped 1
  8. n6=%pingtime 1
  9. n7=%pingmsg 2 Mins. 1 Secs.
  10. n8=%nick Nitr0`97
  11. n9=%chan #Park_Patrol
  12. n10=%ol 0
  13. n11=%lo off
  14. n12=%clonedtct OFF
  15. n13=%name 11
  16. n14=%clone 
  17. n15=%pingmin 2
  18. n16=%ctcpchan off
  19. n17=%ctcppriv off
  20. n18=%textlength 999
  21. n19=%onick Mr_KooL_
  22. n20=%flood.chan.#EASY-CHAT}-Diablo- 1
  23. n21=%bword bitch
  24. n22=%timefirstpart 7
  25. n23=%timepm [YES]
  26. n24=%time 7:37 pm
  27. n25=%away Off
  28. n26=%returnnick Mr_KooL_
  29. n27=%awaynick Mr_KooL_AwAy
  30. n28=%awaytimer 120
  31. n29=%awaymsg Scripting
  32.  
  33. [Commands]
  34. n0=1:*:{
  35. n1=  if (($chan != $null) && ($parm1 != SOUND)) { notice $chan >--< Channel Ctcp From $nick --< $parm1 >--<Channel CTCP dectector by Park Patrol>--
  36. n2=    auser 2 $nick 
  37. n3=    timer 1 5 ruser $nick 
  38. n4=    .ignore -tipu20 $nick  4
  39. n5=  } 
  40. n6=}
  41. n7=2:*:/if ( $chan != $null )  { notice $chan Channel Flood From $nick $+ .... | if ($me isop $chan)  {/kick $chan $nick Mess with me will ya! | /ban $chan $nick 3 | if $me isop $chan notice $chan $nick has been taken care of.   =)} | else halt } 
  42. n8=#floodultracommand disabled
  43. n9=1:*:halt
  44. n10=#floodultracommand end
  45. n11=#floodctcp disabled
  46. n12=!1:*:{
  47. n13=  if ((%ctcpchan == on) && ($chan != $null))  {
  48. n14=    if (($me isop $chan) && (%textlength != $null) && ($len($parms) > %textlength)) { mode $chan -o+b $nick $wildsite | kick $chan $nick Channel Long CTCP Flood! ({=-Park Patrol-=}) | .timer 1 45 mode $chan -b $wildsite | goto end }
  49. n15=    inc %flood.ctcp. [ $+ [ $chan [ $+  [ $nick ] ] ] ] 1
  50. n16=    if %flood.ctcp. [ $+ [ $chan [ $+ [ $nick ] ] ] ] == 1 .timer 1 15 unset %flood.ctcp. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  51. n17=    if %flood.ctcp. [ $+ [ $chan [ $+ [ $nick ] ] ] ] == 4 {
  52. n18=      if $me isop $chan { mode $chan -o+b $nick $wildsite | kick $chan $nick Channel CTCP Flood! ({=-Park Patrol-=}) | .timer 1 45 mode $chan -b $wildsite }
  53. n19=      if (($me !isop $chan) && (%ctcppriv == off)) { echo 2 -a CTCP Channel Flood! ü $+ $nick $+ ü is being ignored. ({=-Park Patrol-=}) | if $parm1 == dcc .ignore -ntu90 $wildsite 2 | else .ignore -tu90 $wildsite }
  54. n20=      unset %flood.ctcp. [ $+ [ $chan [ $+ [ $nick ] ] ] ]
  55. n21=    }
  56. n22=    :end
  57. n23=  }
  58. n24=  if %ctcppriv == on {
  59. n25=    inc %flood.ctcp. [ $+ [ $wildsite ] ] 1
  60. n26=    if %flood.ctcp. [ $+ [ $wildsite ] ] == 1 .timer 1 15 unset %flood.ctcp. [ $+ [ $wildsite ] ]
  61. n27=    if %flood.ctcp. [ $+ [ $wildsite ] ] == 4 { notice $nick CTCP Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.ctcp. [ $+ [ $wildsite ] ] | if $parm1 == dcc .ignore -ntu90 $wildsite | else .ignore -tu90 $wildsite }
  62. n28=  }
  63. n29=  if $parm1 == version raw -q notice $nick :VERSION ({=-Park Patrol-=}) 1.0
  64. n30=}
  65. n31=#floodctcp end
  66. n32=1:ON TEXT:!park*:#:/dcc send C:\park\park.zip
  67. n33=#messagerecorder disabled
  68. n34=1!:PPpage: {
  69. n35=  .write awaymsg.txt -=A Person has Paged you =-
  70. n36=  .write awaymsg.txt -=Name : $nick =-
  71. n37=  .write awaymsg.txt -=Time : $time =-
  72. n38=  .write awaymsg.txt -=Msgs : $parm2*
  73. n39=  .notice $nick ({=-Park Patrol-=}) Your Message has been Recorded, Have a Nice Day ({=-Park patrol-=})
  74. n40=}
  75. n41=#messagerecorder end
  76.  
  77. [Events]
  78. n0=#floodultraevent disabled
  79. n1=1:on action:*:?:.close -m $nick | .ignore -inpt *!*@* | halt
  80. n2=1:on chat:*:.close -c $nick | .ignore -inpt *!*@* | halt
  81. n3=1:on ctcpreply:*:.ignore -inpt *!*@* | halt
  82. n4=1:on invite:#:.ignore -inpt *!*@* | halt
  83. n5=1:on nosound:.ignore -inpt *!*@* | halt
  84. n6=1:on notice:*:?:.ignore -inpt *!*@* | halt
  85. n7=1:on serv:*:.close -f $nick | .ignore -inpt *!*@* | halt
  86. n8=1:on snotice:*:.ignore -inpt *!*@* | halt
  87. n9=1:on text:*:?:.close -m $nick | .ignore -inpt *!*@* | halt
  88. n10=1:on wallops:*:.ignore -inpt *!*@* | halt
  89. n11=#floodultraevent end
  90. n12=!1:on invite:#:notice $nick You invited me to $chan $+ . All furthur invites will be ignored. ({=-Park Patrol-=}) | echo 2 -a You were invited by $nick to $chan $+ . | .ignore -iu45 $nick 2
  91. n13=#floodchan disabled
  92. n14=!1:on action:*:#:floodchan
  93. n15=!1:on notice:*:#:floodchan
  94. n16=!1:on text:*:#:floodchan
  95. n17=#floodchan end
  96. n18=#floodchat disabled
  97. n19=!1:on chat:*:{
  98. n20=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -c $nick | notice $nick Chat Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.chat. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 | goto end }
  99. n21=  inc %flood.chat. [ $+ [ $nick ] ] 1
  100. n22=  if %flood.chat. [ $+ [ $nick ] ] == 1 .timer 1 10 unset %flood.chat. [ $+ [ $nick ] ]
  101. n23=  if %flood.chat. [ $+ [ $nick ] ] == 5 { .close -c $nick | notice $nick Chat Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.chat. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 }
  102. n24=  :end
  103. n25=}
  104. n26=#floodchat end
  105. n27=#floodctcpreply disabled
  106. n28=!1:on ctcpreply:*:{
  107. n29=  inc %flood.ctcpreply. [ $+ [ $wildsite ] ] 1
  108. n30=  if %flood.ctcpreply. [ $+ [ $wildsite ] ] == 1 .timer 1 12 unset %flood.ctcpreply. [ $+ [ $wildsite ] ]
  109. n31=  if %flood.ctcpreply. [ $+ [ $wildsite ] ] == 3 { notice $nick Private CTCP Reply Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.ctcpreply. [ $+ [ $wildsite ] ] | .ignore -nu90 $wildsite }
  110. n32=  if $parm1 == ping { %time = $ctime - $parm2 | notice $nick [ $+ $nick PING reply]: %time secs ({=-Park Patrol-=}) | unset %time }
  111. n33=}
  112. n34=#floodctcpreply end
  113. n35=#floodinvite disabled
  114. n36=!1:on invite:#:{
  115. n37=  inc %flood.invite. [ $+ [ $wildsite ] ] 1
  116. n38=  if %flood.invite. [ $+ [ $wildsite ] ] == 1 .timer 1 90 unset %flood.invite. [ $+ [ $wildsite ] ]
  117. n39=  if %flood.invite. [ $+ [ $wildsite ] ] == 3 { notice $nick Invite Flood! All further invites from you will be ignored. ({=-Park Patrol-=}) | unset %flood.invite. [ $+ [ $wildsite ] ] | .ignore -iu90 $wildsite }
  118. n40=}
  119. n41=#floodinvite end
  120. n42=#floodnick disabled
  121. n43=!@1:on nick:{
  122. n44=  inc %flood.nickname. [ $+ [ $wildsite ] ] 1
  123. n45=  if %flood.nickname. [ $+ [ $wildsite ] ] == 1 .timer 1 20 unset %flood.nickname. [ $+ [ $wildsite ] ]
  124. n46=  if %flood.nickname. [ $+ [ $wildsite ] ] >= 3 { 
  125. n47=    mode $chan -o+b $newnick $wildsite
  126. n48=    kick $chan $newnick Nick Flood! ({=-Park Patrol-=})
  127. n49=    .timer 1 45 mode $chan -b $wildsite
  128. n50=    set %f 0
  129. n51=    :do
  130. n52=    inc %f 1
  131. n53=    if $chan(%f) == $null goto end
  132. n54=    if $chan(%f) == $chan goto do
  133. n55=    if $newnick ison $chan(%f) { mode $chan(%f) -o+b $newnick $wildsite | kick $chan(%f) $newnick Nick Flood! ({=-Park Patrol-=}) | .timer 1 45 mode $chan(%f) -b $wildsite }
  134. n56=    goto do
  135. n57=    :end
  136. n58=    unset %f
  137. n59=  }
  138. n60=}
  139. n61=#floodnick end
  140. n62=#floodprivate disabled
  141. n63=!1:on action:*:?:{
  142. n64=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -m $nick | notice $nick Private Action Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite | goto end }
  143. n65=  inc %flood.private. [ $+ [ $wildsite ] ] 1
  144. n66=  if %flood.private. [ $+ [ $wildsite ] ] == 1 .timer 1 10 unset %flood.private. [ $+ [ $wildsite ] ]
  145. n67=  if %flood.private. [ $+ [ $wildsite ] ] == 5 { .close -m $nick | notice $nick Private Action Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite }
  146. n68=  :end
  147. n69=}
  148. n70=!1:on notice:*:?:{
  149. n71=  if ((%textlength != $null) && ($len($parms) > %textlength)) { notice $nick Private Notice Flood! You are being ignored. ({=-Park Patrol-=}) | .ignore -nu45 $wildsite | goto end }
  150. n72=  inc %flood.notice. [ $+ [ $wildsite ] ] 1
  151. n73=  if %flood.notice. [ $+ [ $wildsite ] ] == 1 .timer 1 10 unset %flood.notice. [ $+ [ $wildsite ] ]
  152. n74=  if %flood.notice. [ $+ [ $wildsite ] ] == 5 { notice $nick Private Notice Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.notice. [ $+ [ $nick ] ] | .ignore -nu45 $wildsite }
  153. n75=  :end
  154. n76=}
  155. n77=!1:on text:*:?:{
  156. n78=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -m $nick | notice $nick Private Action Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite | goto end }
  157. n79=  inc %flood.private. [ $+ [ $wildsite ] ] 1
  158. n80=  if %flood.private. [ $+ [ $wildsite ] ] == 1 .timer 1 10 unset %flood.private. [ $+ [ $wildsite ] ]
  159. n81=  if %flood.private. [ $+ [ $wildsite ] ] == 5 { .close -m $nick | notice $nick Private Text Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.private. [ $+ [ $wildsite ] ] | .ignore -pu45 $wildsite }
  160. n82=  :end
  161. n83=}
  162. n84=#floodprivate end
  163. n85=#floodrevdoor disabled
  164. n86=!@1:on part:#:{
  165. n87=  inc %flood.part. [ $+ [ $nick ] ] 1
  166. n88=  if %flood.part. [ $+ [ $nick ] ] == 1 .timer 1 20 unset %flood.part. [ $+ [ $nick ] ]
  167. n89=  if %flood.part. [ $+ [ $nick ] ] == 3 {
  168. n90=    ban -u45 $chan $nick 2
  169. n91=    describe $chan has banned $nick for a Revolving Door Flood! ({=-Park Patrol-=})
  170. n92=    notice $nick You have been banned from $chan for a Revolving Door Flood! ({=-Park Patrol-=})
  171. n93=    unset %flood.part. [ $+ [ $nick ] ]
  172. n94=  }
  173. n95=}
  174. n96=#floodrevdoor end
  175. n97=#floodserv disabled
  176. n98=!1:on serv:*:{
  177. n99=  if ((%textlength != $null) && ($len($parms) > %textlength)) { .close -f $nick | notice $nick Server Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.serv. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 | goto end }
  178. n100=  inc %flood.serv. [ $+ [ $nick ] ] 1
  179. n101=  if %flood.serv. [ $+ [ $nick ] ] == 1 .timer 1 10 unset %flood.serv. [ $+ [ $nick ] ]
  180. n102=  if %flood.serv. [ $+ [ $nick ] ] == 5 { .close -f $nick | notice $nick Server Flood! You are being ignored. ({=-Park Patrol-=}) | unset %flood.serv. [ $+ [ $nick ] ] | .ignore -ntu45 $nick 2 }
  181. n103=  :end
  182. n104=}
  183. n105=#floodserv end
  184. n106=#abcpoll disabled
  185. n107=1:ON NICK: {
  186. n108=  if ($newnick isin %notagain) /halt
  187. n109=  if ($nick isin %notagain) { /notice $newnick HAHAHA!! dont think so!! | /set %notagain %notagain $newnick }
  188. n110=}
  189. n111=1:ON TEXT:!vote*:#: {
  190. n112=  if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D | /halt }
  191. n113=  if ($parm2 = a) { /inc %a | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  192. n114=  if ($parm2 = b) { /inc %b | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  193. n115=  if ($parm2 = c) { /inc %c | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  194. n116=  /notice $nick Please Make A Valid Vote %popver
  195. n117=}
  196. n118=#abcpoll end
  197. n119=1:ON QUIT: {
  198. n120=  if (%splitstat == OFF) { halt }
  199. n121=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  200. n122=    if ($parms == %split) { halt }
  201. n123=    set %split1 $token(1,46,$parm1) | set %split2 $token(1,46,$parm2)
  202. n124=    ame 4,1***9,1WARNING4,1***
  203. n125=    ame 4,1Possible Split at:4,1ìé $+ %split1 $+ é $+ %split2 $+ éì
  204. n126=    set %split $parms
  205. n127=    timer 1 15 unset %split
  206. n128=  }
  207. n129=}
  208. n130=1:ON TEXT:*:#: {
  209. n131=  %repeatkick = $readini $mircdirrepeat.ini Settings repeatkick
  210. n132=  if ((%repeatkick = [ON]) && ($nick !isop $chan) && ($me isop $chan)) {
  211. n133=    %nick = $remove($nick,]) | %nick = $remove(%nick,[) | %chan = $remove($chan,]) | %chan = $remove(%chan,[)
  212. n134=    %current = $readini $mircdirrepeat.ini %chan %nick | if (%current = $parms) { kick $chan $nick Repeating sucks | halt } | writeini $mircdirrepeat.ini %chan %nick $parms
  213. n135=  }
  214. n136=}
  215. n137=1:ON TEXT:*:#: {
  216. n138=  %swear.kick = $readini $mircdirtoggles.ini Settings swear.kick
  217. n139=  if ((%swear.kick == [ON]) && ($me isop $chan) && ($nick !isop $chan)) {
  218. n140=    %words = $readini $mircdirtoggles.ini SwearKick words | %i = 0 | :swknext | inc %i | if ($token(%i,$asc(`),%words) = $null) { goto endswk } | if ($token(%i,$asc(`),%words) isin $parms) {
  219. n141=      if ($nick isin %swear2) { kick $chan $nick Sweak Kick, 3 strikes | msg $chan Swear Kick On [ $+ $nick $+ ] | remswear $nick 2 | halt }
  220. n142=      if ($nick isin %swear1) { .notice $nick Sweak kick! Strike 2 | if (%swear2 == $null) { set %swear2 $nick } | else { set %swear2 %swear2 $nick } | remswear $nick 1 }
  221. n143=      else {
  222. n144=        .notice $nick Sweak Kick! Strike 1 | if (%swear1 == $null) { set %swear1 $nick }  | else { set %swear1 %swear1 $nick }
  223. n145=      }
  224. n146=    }
  225. n147=    else { goto swknext }
  226. n148=  }
  227. n149=  :endswk
  228. n150=}
  229. n151=#help disabled
  230. n152=1:ON TEXT:*!help*:#:/notice $nick 9,1Y4ou are number %help on the waiting list. 9I 4am currently serving number %helped $+ .  9P4lease hold for assistance. | /msg $me $nick is number %help on the list.  9Y4ou are on number %helped $+ .
  231. n153=#help end
  232. n154=1:ON CTCPREPLY:*PING*:{
  233. n155=  if ($ctime < $parm2) { %pingtime = 0 }
  234. n156=  else { %pingtime = $ctime - $parm2 }
  235. n157=  goto set
  236. n158=  :set
  237. n159=  if (%pingtime > 60) {
  238. n160=    dec %pingtime 60
  239. n161=    inc %pingmin 1
  240. n162=    goto pre
  241. n163=  }
  242. n164=  else {
  243. n165=    goto pre
  244. n166=  }
  245. n167=  :pre
  246. n168=  if (%pingmin == $null) {
  247. n169=    set %pingmsg %pingtime Secs.
  248. n170=    goto msg  
  249. n171=  }
  250. n172=  else {
  251. n173=    set %pingmsg %pingmin Mins. %pingtime Secs.
  252. n174=    goto msg
  253. n175=  }
  254. n176=  :msg
  255. n177=  if ($nick == $me) {
  256. n178=    /titlebar Park Patrol v1.0 ({=- You are lagging by:  $+ %pingtime $+  secs -=}) Park Patrol v1.0
  257. n179=  }
  258. n180=}
  259. n181=1:ON JOIN:#: {
  260. n182=  if (%clonedtct == OFF) { halt }
  261. n183=  else {
  262. n184=    /set %join1 $address($nick,2)
  263. n185=    /set %name 0
  264. n186=    /set %clone $nick
  265. n187=    :step1
  266. n188=    inc %name 1
  267. n189=    if (%name <= $nick(0,$chan) && $nick(%name,$chan) != $nick) { 
  268. n190=      /set %join2 $address($nick(%name,$chan),2)
  269. n191=      if (%join1 == %join2) { 
  270. n192=        %clone = %clone ][12 $nick(%name,$chan) $+ 
  271. n193=        goto step1
  272. n194=      }
  273. n195=      else { goto step1 }
  274. n196=    }
  275. n197=    :alldone
  276. n198=    if (%clone != $nick) {
  277. n199=      /msg $chan 4,1**********9,1WARNING4,1**********9,1WARNING4,1*********
  278. n200=      /msg $chan ][12 %clone ][ ARE CLONES !
  279. n201=      /msg $chan 4,1***********9,1(4,1{=9,1-P4ark 9,1P4,1atrol9-4=}9)4,1***********
  280. n202=    }
  281. n203=  }
  282. n204=  if (%exoseen == ON) { write -ls $+ $nick seen.exo  $nick  $fulldate }
  283. n205=}
  284. n206=#waveget disabled
  285. n207=1:ON NOSOUND:/msg #wav/sound_help ! $+ $nick $filename | /notice $nick $me thanks you for the sound ({=-Park Patrol-=})
  286. n208=#waveget end
  287. n209=1:ON JOIN:#:writeini seen.ini $chan $nick $ctime
  288. n210=1:ON TEXT:!seen *:#: {
  289. n211=  if ($parm2 == $null) { msg $chan $nick $+ , you have to ask me who I've seen =) | halt }
  290. n212=  elseif ($parm2 == $nick) { msg $chan Don't you know where you are $nick $+ ? | halt }
  291. n213=  elseif ($parm2 ison $chan) { msg $chan $nick $+ , $parm2 is here right now (are u blind?) | halt }
  292. n214=  elseif ($parm2 == $me) { msg $chan $nick $+ , I'm right here!! | halt }
  293. n215=  %a = $readini seen.ini $chan $parm2
  294. n216=  if (%a == $null) { msg $chan $nick $+ , I have never seen $parm2 | unset %a | halt }
  295. n217=  msg $chan $nick $+ , I saw $parm2 $duration($counter(%a)) ago | unset %a | halt
  296. n218=}
  297. n219=1:ON NICK: {
  298. n220=  %a = $readini seen.ini $chan $nick
  299. n221=  if (%a == $null) { unset %a | halt }
  300. n222=  else { writeini seen.ini $chan $newnick %a | remini seen.ini $chan $nick | unset %a | halt }
  301. n223=}
  302. n224=1:on text:*ping me*:#:/ctcp $nick ping
  303. n225=1:on text:*ping pl*:#:/ctcp $nick ping
  304. n226=1:on text:*my ping*:#:/ctcp $nick ping
  305. n227=1:on text:*lagged?*:#:/ctcp $nick ping
  306. n228=1:on action:*ping me*:#:/ctcp $nick ping
  307. n229=1:on action:*ping pl*:#:/ctcp $nick ping
  308. n230=1:on action:*my ping*:#:/ctcp $nick ping
  309. n231=1:on action:*lagged?*:#:/ctcp $nick ping
  310. n232=1:on ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick *** Your ping reply is %pt seconds *** 9,1(4,1{9,1=-Park Patrol-=}) -*Auto Ping*-
  311.  
  312. [Raw]
  313. n0=352:* { 
  314. n1=  if (%ck == on) {
  315. n2=    if ($parm4 isin %addies) {
  316. n3=      if (%ckb == on) /ban %temp $parm6 2
  317. n4=      /kick %temp $parm6 %temp2
  318. n5=    }
  319. n6=    /set %addies %addies $parm4 
  320. n7=  }
  321. n8=  315:* { 
  322. n9=    if (%lo == on) msg $parm2 9,1T4o9T4a9L IRC4op9S L4i9ST4e9D4: [ $+ %ol $+ ] | /set %lo off
  323. n10=  }
  324.